home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / auctex / auc-old.el.z / auc-old.el
Encoding:
Text File  |  1998-05-21  |  7.7 KB  |  250 lines
  1. ;;; auc-old.el - Compatibility with AUC TeX 6.*
  2. ;;
  3. ;; Maintainer: Per Abrahamsen <auc-tex@sunsite.auc.dk>
  4. ;; Version: 9.7p
  5. ;;
  6. ;; Copyright (C) 1991 Kresten Krab Thorup 
  7. ;; Copyright (C) 1993 Per Abrahamsen 
  8. ;; 
  9. ;; This program is free software; you can redistribute it and/or modify
  10. ;; it under the terms of the GNU General Public License as published by
  11. ;; the Free Software Foundation; either version 1, or (at your option)
  12. ;; any later version.
  13. ;; 
  14. ;; This program is distributed in the hope that it will be useful,
  15. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  16. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17. ;; GNU General Public License for more details.
  18. ;; 
  19. ;; You should have received a copy of the GNU General Public License
  20. ;; along with this program; if not, write to the Free Software
  21. ;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  22.  
  23. ;;; Commentary:
  24.  
  25. ;; This file contains an alternative keymapping, compatible with
  26. ;; older versions of AUC TeX.  You are strongly suggested to try the
  27. ;; new keyboard layout, as we would like this file to go away
  28. ;; eventually. 
  29.  
  30. ;;; Code:
  31.  
  32. (require 'latex)
  33.  
  34. ;;; Keymaps
  35.  
  36. (defun TeX-define-key (key value)
  37.   "OBSOLETE: Define KEY to VALUE in TeX and LaTeX mode."
  38.   (define-key plain-TeX-mode-map key value)
  39.   (define-key LaTeX-mode-map key value))
  40.         
  41. (TeX-define-key "\n"       'TeX-terminate-paragraph)
  42. (TeX-define-key "\e}"     'up-list)
  43. (TeX-define-key "\e{"     'TeX-insert-braces)
  44. (TeX-define-key "\C-c\C-b" 'TeX-bold)
  45. (TeX-define-key "\C-c\C-i" 'TeX-italic)
  46. (TeX-define-key "\C-c\C-s" 'TeX-slanted)
  47. (TeX-define-key "\C-c\C-r" 'TeX-roman)
  48. (TeX-define-key "\C-c\C-e" 'TeX-emphasize)
  49. (TeX-define-key "\C-c\C-t" 'TeX-typewriter)
  50. (TeX-define-key "\C-c\C-y" 'TeX-small-caps)
  51. (TeX-define-key "\C-c\C-d" 'TeX-region)
  52. (TeX-define-key "\C-c\C-a" 'TeX-buffer)
  53. (TeX-define-key "\C-c\C-p" 'TeX-preview)
  54. (TeX-define-key "\C-c\C-n" 'TeX-next-error)
  55. (TeX-define-key "\C-c!"    'TeX-print)
  56. (TeX-define-key "\e\t"    'TeX-complete-symbol)
  57. (TeX-define-key "\C-c$"    'TeX-run-lacheck)
  58.  
  59. (define-key LaTeX-mode-map "\C-c\n"   'TeX-terminate-paragraph)
  60. (define-key LaTeX-mode-map "\C-c\C-x" 'LaTeX-section)
  61. (define-key LaTeX-mode-map "\C-c\C-c" 'LaTeX-environment)
  62. (define-key LaTeX-mode-map "\C-c@"    'LaTeX-bibtex)
  63. (define-key LaTeX-mode-map "\C-c#"    'LaTeX-makeindex)
  64. (define-key LaTeX-mode-map "\em"     'LaTeX-math-mode)
  65. (define-key LaTeX-mode-map "\es"     'LaTeX-fill-section)
  66. (define-key LaTeX-mode-map "\e\C-e"  'LaTeX-mark-environment)
  67. (define-key LaTeX-mode-map "\e\C-x"  'LaTeX-mark-section) 
  68. (define-key LaTeX-mode-map "\e\C-q"  'LaTeX-fill-environment)
  69.  
  70. ;;; Buffer
  71.  
  72. (defun TeX-region (begin end)
  73.   "OBSOLETE: Run TeX-command-default on current region."
  74.   (interactive "r")
  75.   (require 'tex-buf)
  76.   (setq TeX-current-process-region-p t)
  77.   (if (nth 4 (assoc TeX-command-default TeX-command-list))
  78.       (TeX-region-create (TeX-region-file "tex")
  79.              (buffer-substring begin end)
  80.              (file-name-nondirectory (buffer-file-name))
  81.              (count-lines (point-min) begin)))
  82.   (TeX-command TeX-command-default 'TeX-region-file))
  83.  
  84. (defun TeX-buffer ()
  85.   "OBSOLETE: Run TeX-command-default on the current document."
  86.   (interactive)
  87.   (save-some-buffers) ; added for compatibility reasons
  88.   (require 'tex-buf)
  89.   (setq TeX-current-process-region-p nil)
  90.   (TeX-command TeX-command-default 'TeX-master-file))
  91.  
  92. (defun TeX-old-command (name)
  93.   "OBSOLETE: Run command NAME on either the current document or region."
  94.   (require 'tex-buf)
  95.   (if TeX-current-process-region-p
  96.       (TeX-command name 'TeX-region-file)
  97.     (TeX-command name 'TeX-master-file)))
  98.  
  99. (defun TeX-preview ()
  100.   "OBSOLETE: Run View command on either the current document or region."
  101.   (interactive)
  102.   (TeX-old-command "View"))
  103.  
  104. (defun TeX-print ()
  105.   "OBSOLETE: Run Print command on either the current document or region."
  106.   (interactive)
  107.   (TeX-old-command "Print"))
  108.  
  109. (defun TeX-run-lacheck()
  110.   "OBSOLETE: Run lacheck command on either the current document or region."
  111.   (interactive)
  112.   (TeX-old-command "Check"))
  113.  
  114. (defun LaTeX-bibtex ()
  115.   "OBSOLETE: Run BibTeX command on either the current document or region."
  116.   (interactive)
  117.   (TeX-old-command TeX-command-BibTeX))
  118.  
  119. (defun LaTeX-makeindex ()
  120.   "OBSOLETE: Run Index command on either the current document or region."
  121.   (interactive)
  122.   (TeX-old-command "Index"))
  123.  
  124. ;;; Fonts
  125.  
  126. (defun TeX-bold ()
  127.   (interactive "*")
  128.   (insert TeX-grop TeX-esc "bf " TeX-grcl)
  129.   (backward-char 1))
  130.  
  131. (defun TeX-italic ()
  132.   (interactive "*")
  133.   (insert TeX-grop TeX-esc "it " TeX-esc "/" TeX-grcl)
  134.   (backward-char 3))
  135.  
  136. (defun TeX-slanted ()
  137.   (interactive "*")
  138.   (insert TeX-grop TeX-esc "sl " TeX-esc "/" TeX-grcl)
  139.   (backward-char 3))
  140.  
  141. (defun TeX-roman ()
  142.   (interactive "*")
  143.   (insert TeX-grop TeX-esc "rm " TeX-grcl)
  144.   (backward-char 1))
  145.  
  146. (defun TeX-emphasize ()
  147.   (interactive "*")
  148.   (insert TeX-grop TeX-esc "em " TeX-esc "/" TeX-grcl)
  149.   (backward-char 3))
  150.  
  151. (defun TeX-typewriter ()
  152.   (interactive "*")
  153.   (insert TeX-grop TeX-esc "tt " TeX-grcl)
  154.   (backward-char 1))
  155.  
  156. (defun TeX-small-caps ()
  157.   (interactive "*")
  158.   (insert TeX-grop TeX-esc "sc " TeX-grcl)
  159.   (backward-char 1))
  160.  
  161. ;;; AUC (La)TeX Mode
  162. ;;
  163. ;; Added by marsj@ida.liu.se Thu Mar  5 17:52:38 1992 to support
  164. ;; automatic mode change after using insert-mode-line hook. Also
  165. ;; modified regexp to choose tex mode to be more aware of latex
  166. ;; (documentstyle is uniq, isn'it)
  167.  
  168. (defun insert-mode-line ()
  169.     "This little macro inserts `% -*- mode-name -*-' if not present.
  170. You should insert this in your TeX-mode-hook!"
  171.     (interactive "*")
  172.     (save-excursion
  173.       (goto-char (point-min))
  174.       (if (not (re-search-forward "-\\*-.*-\\*-" 100 t))
  175.       (insert-string (concat "% -*- "
  176.                  (substring (symbol-name major-mode) 0 -5)
  177.                  " -*-\n")))))
  178.  
  179. (defun auc-tex-mode ()
  180.   "Called when we have a mode line specification in first line."
  181.   (interactive)
  182.   (plain-tex-mode))
  183.  
  184. (defun auc-latex-mode ()
  185.   "Called when we have a mode line specification in first line."
  186.   (interactive)
  187.   (latex-mode))
  188.  
  189. ;;; Validation
  190.  
  191. (defun TeX-validate-buffer ()
  192.   "Check current buffer for paragraphs containing mismatched $'s.
  193. As each such paragraph is found, a mark is pushed at its beginning,
  194. and the location is displayed for a few seconds."
  195.   (interactive)
  196.   (let ((opoint (point)))
  197.     (goto-char (point-max))
  198.     ;; Does not use save-excursion
  199.     ;; because we do not want to save the mark.
  200.     (unwind-protect
  201.     (while (and (not (input-pending-p)) (not (bobp)))
  202.       (let ((end (point)))
  203.         (search-backward "\n\n" nil 'move)
  204.         (or (TeX-validate-paragraph (point) end)
  205.         (progn
  206.           (push-mark (point))
  207.           (message "Mismatch found in pararaph starting here")
  208.           (sit-for 4)))))
  209.       (goto-char opoint))))
  210.  
  211. (defun TeX-validate-paragraph (start end)
  212.   (condition-case ()
  213.       (save-excursion
  214.     (save-restriction
  215.       (narrow-to-region start end)
  216.       (goto-char start)
  217.       (forward-sexp (- end start))
  218.       t))
  219.     (error nil)))
  220.  
  221. (defun TeX-terminate-paragraph (inhibit-validation)
  222.   "Insert two newlines, breaking a paragraph for TeX.
  223. Check for mismatched braces/$'s in paragraph being terminated.
  224. A prefix arg inhibits the checking."
  225.   (interactive "*P")
  226.   (or inhibit-validation
  227.       (TeX-validate-paragraph
  228.        (save-excursion
  229.      (search-backward "\n\n" nil 'move)
  230.      (point))
  231.        (point))
  232.       (message "Paragraph being closed appears to contain a mismatch"))
  233.   (reindent-then-newline-and-indent)
  234.   (newline-and-indent))
  235.  
  236. ;;; Miscellaneous
  237.  
  238. (defun TeX-cmd-on-region (begin end command)
  239.   "Reads a (La)TeX-command. Makes current region a TeX-group.
  240. Inserts command at the start of the group."
  241.   (interactive "*r\ns(La)TeX-command on region: ")
  242.   (save-excursion
  243.     (goto-char end)   (insert TeX-grcl)
  244.     (goto-char begin) (insert TeX-grop TeX-esc command " ")))
  245.  
  246. (provide 'auc-old)
  247. (provide 'auc-tex)
  248.  
  249. ;;; auc-old.el ends here
  250.